home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / gui-ver4 / tstfrm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-10-06  |  4.3 KB  |  97 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H80000005&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   3045
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   6825
  10.    BeginProperty Font 
  11.       Name            =   "Verdana"
  12.       Size            =   9.75
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H8000000E&
  20.    Icon            =   "TstFrm.frx":0000
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   3045
  25.    ScaleWidth      =   6825
  26.    ShowInTaskbar   =   0   'False
  27.    StartUpPosition =   3  'Windows Default
  28. Attribute VB_Name = "Form1"
  29. Attribute VB_GlobalNameSpace = False
  30. Attribute VB_Creatable = False
  31. Attribute VB_PredeclaredId = True
  32. Attribute VB_Exposed = False
  33. 'Revesion 3
  34. '// Cool Gui-Needs [Form.Borderstyle = 0]
  35. '// See X_gui.Initilise for Title Bar Gradent options.
  36. '// Coded By Xws
  37. '// Still Needs Resizeing Implemented.
  38. '// For thoes of you who want to help Improve it and get away from thoes dull Microsoft Title Bars! [Bring it ON :)]
  39. '// And for thoes of you Who Want to Profit by releasing oCx's to do it, [well im still Poor.]
  40. '// Have Fun you May Modify or use this as you want.
  41. '// If you want to Employee my services Email: [familae@familae.screaming.net]
  42. '// 3/10/99 -Revesion 1
  43. '// Upgraded Mouse Chking . now Accomplished via One Function.
  44. '// Riped out old Standalone Mouse cheaking Subs.
  45. '// Riped out old PrintF Function /Upgraded PrintF3 function.
  46. '// Made a suttle change to the titlebar , lets see if you notice.
  47. '// Needs a new Icon Drawing Function:
  48.                                      '   Mabye if we bltbit the Icon Handle with Stretch_mode it will turn out better
  49.                                      '   any thoughts are welcome.
  50.                                      
  51. '// 7/10/99 -Revesion 2
  52. '//Just Upgraded Genral Code [A bit more Proffesional] genral streamlining also tidyed up the API Decs
  53. '//Restore and Maximize now works.
  54. '//Fixed that Nasty Redraw, Caused by Mouse_Up Function Now Calls Draw_buttons instead of Gui.
  55. '// Back on the Subject of the Icon as i never got any feed from you guys.
  56.                                     ': Could the DrawIconEx function Be turning out Horrific
  57.                                     ': due to the MM_MAP MODE of the HDC ?? - if so what Problems Does it Propose.
  58.                                     ': Cause it would be handy if i could just use the damn DrawIcon Function :(
  59.                                     
  60.                                     
  61. '//Now needs a routine to set the form.left ,top,width,height values to there relivant cordinats based on the Gui ?
  62. '//More possiblitys :
  63.                     'altimitly i would like to figure out how access the memmory template for the System Menu,
  64.                     'there must be a Window Style Flag to turn on the system Hmenu of the form.
  65.                     'Thus we can Pop it up under the Ico and have all the functionality of the genric forms.
  66.                     
  67.                     
  68. '// 8/10/99 -Revision 3
  69. '// Fixed Moveing the form from anyware problem , now can only be moved by title ,Mabye ill leave that one optional.
  70. '// Fixed Moveing when maximized Problem.
  71. '// Added New Const's
  72.                         'Button_Size       -Size of Form Buttons
  73.                         'Frame_Size        -Size of Frame
  74.                         'Gradient Finess   -Incremintation Cycles for Gradient
  75. '// Fixed Button Allighnment now does it properley. Based on [Button_Size * Nummber_of_Buttons]
  76.                     
  77.                     
  78.                     
  79.                     
  80.                     
  81. Private Gui As New X_gui
  82. Private Sub Form_Load()
  83. Set Gui.OwnerForm = Form1
  84. Gui.Titlebar_BarColor = RGB(0, 0, 0)
  85. Gui.Titlebar_FrameColor = RGB(0, 0, 0)
  86. Gui.Titlebar_Txtfgcolor = RGB(0, 0, 0)
  87. End Sub
  88. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  89. Gui.Mouse_Down
  90. End Sub
  91. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  92. Gui.Mouse_Up
  93. End Sub
  94. Private Sub Form_Paint()
  95. Gui.Gui
  96. End Sub
  97.